home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 050a.dms / 050a.adf / EXAMPLE_PROGRAMS / example05_1.AMOS / example05_1.amosSourceCode
AMOS Source Code  |  1992-02-26  |  1KB  |  33 lines
  1. '=================== 
  2. 'EXAMPLE PROGRAM 5_1   
  3. '=================== 
  4. 'A program to load an IFF picture using the Amos file selecter and display it. 
  5.  
  6.  
  7. Rem no need for DIR$ here as the user can change drives using the right mouse
  8. Rem button, the following line brings up the selecter, f$ will hold the name 
  9. Rem of the file the user selects.
  10. '----------------------------------------------------------------------------- 
  11. F$=Fsel$("*.*","","Load AN IFF PICTURE")
  12.  
  13.  
  14. Rem If F$ holds nothing ie no filename the user must have clicked on QUIT
  15. Rem from the selecter so we exit our program back to the editor. 
  16. '--------------------------------------------------------------------------
  17. If F$="" Then Edit 
  18.  
  19.  
  20. Rem hide the mouse to keep things tidy 
  21. '------------------------------------- 
  22. Hide 
  23.  
  24.  
  25. Rem We tell Amos to LOAD an IFF picture into the default screen which is 0 
  26. Rem this means it will be automatically displayed. 
  27. '--------------------------------------------------------------------------- 
  28. Load Iff F$,0
  29.  
  30.  
  31. Rem wait for a key press, then back to the editor. 
  32. '------------------------------------------------- 
  33. Wait Key : Edit